home *** CD-ROM | disk | FTP | other *** search
/ Tabloid Beauties (1996 Edition) / Tabloid Beauties - 1996 Edition.iso / mac / DATA / SHARED.DIR / 00325_Script_325 < prev    next >
Text File  |  1996-04-20  |  496b  |  21 lines
  1. on exitFrame
  2.   put random(100) into x
  3.   if x < 80 then
  4.     put the pathname & "Sounds:" into newpath
  5.     sound Playfile 1, newPath & "031.aif"
  6.     repeat while soundBusy(1)
  7.       nothing
  8.     end repeat
  9.   else
  10.     put the pathname & "Sounds:" into newpath
  11.     sound Playfile 1, newPath & "030.aif"
  12.     repeat while soundBusy(1)
  13.       nothing
  14.     end repeat
  15.     global WhichGirlFIle
  16.     cursor 4
  17.     puppetsprite 2,false
  18.     updatestage
  19.     go (WhichGirlFIle & "0")
  20.   end if
  21. end